;;; compiled by jwz@thalidomide on Thu Jul 2 14:38:29 1992
;;; from file /u/jwz/emacs19/lisp/calendar/diary.el
;;; emacs version 19.2.1 Lucid.
;;; bytecomp version 2.07; 17-jun-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(byte-code "└┴!ê┬├!ç" [require calendar provide diary] 2)
(fset 'diary #[(&optional arg) "└ !┬ 뽫┼!½⌐╞!½ƒ╟½å╔!¬É╩!½ê╠!H¬é\"¬ê═╬!¬â═╧!*ç" [substitute-in-file-name diary-file calendar-current-date date d-file file-exists-p file-readable-p list-diary-entries arg prefix-numeric-value vectorp number-of-diary-entries calendar-day-of-week error "Your diary file is not readable!" "You don't have a diary file!"] 6 "\
Generate the diary window for ARG days starting with the current date.
If no argument is provided, the number of days of diary entries is governed
by the variable `number-of-diary-entries'. This function is suitable for
execution in a .emacs file." "P"])
(fset 'view-diary-entries #[(arg) "└ !ë½£├\n!½ù─\n!½ì┼╞ «â╟╚! \"¬ê╟╩!¬â╟╦!)ç" [substitute-in-file-name diary-file d-file file-exists-p file-readable-p list-diary-entries calendar-cursor-to-date error "Cursor is not on a date!" arg "Your diary file is not readable!" "You don't have a diary file!"] 4 "\
Prepare and display a buffer with diary entries.
Searches the file diary-file for entries that match ARG days starting with
the date indicated by the cursor position in the displayed three-month
calendar." "p"])
(autoload 'check-calendar-holidays "holidays" "\
Check the list of holidays for any that occur on DATE.
The value returned is a list of strings of relevant holiday descriptions.
The holidays are those in the list calendar-holidays.")
(autoload 'calendar-holiday-list "holidays" "\
Form the list of holidays that occur on dates in the calendar window.
The holidays are those in the list calendar-holidays.")
Mark all dates in the calendar window that are day DAYNAME of the week.
0 means all Sundays, 1 means all Mondays, and so on."])
(fset 'mark-calendar-date-pattern #[(month day year) "èqê \n┼_╞\\\\ë┼ªT┼Ñ)╚ ╩ Të Y¡ƒ╦%ê┼_\\ë┼ªT┼Ñ)¬W,ç" [calendar-buffer displayed-month displayed-year y m 12 -2 macro-y -1 i 2 mark-calendar-month month day year] 7 "\
Mark all dates in the calendar window that conform to MONTH/DAY/YEAR.
A value of 0 in any position is a wild-card."])
(fset 'mark-calendar-month #[(month year p-month p-day p-year) " U½è\n├U¼ö\nU¼Å ├U¡▒\n├U¼à\nU¡º├U½£├╟\"TëY¡è╚E!ê¬i)ç╚E!ç" [month p-month p-year 0 year p-day i calendar-last-day-of-month mark-visible-calendar-date] 4 "\
Mark dates in the MONTH/YEAR that conform to pattern P-MONTH/P_DAY/P-YEAR.
A value of 0 in any position of the pattern is a wild-card."])
Block diary entry--entry applies if date is between two dates. Order of
the parameters is M1, D1, Y1, M2, D2, Y2 `european-calendar-style' is nil, and
D1, M1, Y1, D2, M2, Y2 if `european-calendar-style' is t."])
(fset 'diary-float #[(month dayname n) "└ ┬╞ !$\"¡éç" [calendar-date-equal date calendar-nth-named-day n dayname month extract-calendar-year entry] 8 "\
Floating diary entry--entry applies if date is the nth dayname of month."])
(fset 'diary-anniversary #[(month day year) "½â ¬ü\n½â\n¬ü ┼!ëZ ╩U½Å╦U½è╠!¼ä═╬ ╧V¡ò╨E\"¡è╤ ╙ !#,ç" [european-calendar-style month day d m extract-calendar-year date y year diff 2 29 calendar-leap-year-p 3 1 0 calendar-date-equal format entry diary-ordinal-suffix] 6 "\
Anniversary diary entry--entry applies if date is the anniversary of
MONTH, DAY, YEAR if `european-calendar-style' is nil, and DAY, MONTH, YEAR
if `european-calendar-style' is t. Diary entry can contain `%d' or `%d%s'; the
%d will be replaced by the number of years since the MONTH DAY, YEAR and the
%s will be replaced by the ordinal ending of that number (that is, `st', `nd',
`rd' or `th', as appropriate. The anniversary of February 29 is considered
to be March 1 in non-leap years."])
(fset 'diary-cyclic #[(n month day year) "½â ¬ü\n½â\n¬ü ┼!┼E!Zë Ñ\n╦Y¡ô ª╦U¡è╠\n╬\n!#,ç" [european-calendar-style month day d m calendar-absolute-from-gregorian date year diff n cycle 0 format entry diary-ordinal-suffix] 6 "\
Cycle diary entry--entry applies every N days starting at MONTH, DAY, YEAR.
If `european-calendar-style' is t, parameters are N, DAY, MONTH, YEAR.
ENTRY can contain `%d' or `%d%s'; the %d will be replaced by the number of
years since the MONTH DAY, YEAR and the %s will be replaced by the ordinal
ending of that number (that is, `st', `nd', `rd' or `th', as appropriate."])
Ordinal suffix for N. (That is, `st', `nd', `rd', or `th', as appropriate.)"])
(fset 'diary-day-of-year #[nil "└ !├ !├┼╞\nE!Z╚╔\në╩U½â╦¬ü╠%+ç" [extract-calendar-year date year calendar-day-number day 12 31 days-remaining format "Day %d of %d; %d day%s remaining in the year" 1 "" "s"] 7 "\
Day of year and number of days remaining in the year of date diary entry."])
(fset 'diary-iso-date #[nil "└ !┬ª├└ !!╞╟╚U½â┬¬ü╔!╩!$*ç" [calendar-absolute-from-gregorian date 7 calendar-iso-from-absolute iso-date day format "ISO date: Day %s of week %d of %d." 0 extract-calendar-month extract-calendar-year] 6 "\
Hebrew calendar equivalent of date diary entry."])
(fset 'diary-french-date #[nil "└┴\n!!─!╞!╚! ╩V¡¡╦U½î╠═ SH#¬¢╠╧╨ S╤ÑT╥\" S╤ªHSH%,ç" [calendar-french-from-absolute calendar-absolute-from-gregorian date french-date extract-calendar-year y extract-calendar-month m extract-calendar-day d 0 13 format "Jour %s de l'Annee %d de la Revolution" french-calendar-special-days-array "Decade %s, %s de %s de l'Annee %d de la Revolution" make-string 10 73 french-calendar-day-name-array french-calendar-month-name-array] 6 "\
French calendar equivalent of date diary entry."])
(fset 'diary-omer #[nil "└┴┬├!┼\\E!╟!Zë╔Ñ\n╔ª╠V¡╣═W¡│╬╧\n╠U½â╨¬Ñ╬╤\në┴U½â╨¬ü╥╠U½â╨¬Ä╬╙ë┴U½â╨¬ü╥#$#,ç" [calendar-absolute-from-hebrew 1 15 extract-calendar-year date 3760 passover calendar-absolute-from-gregorian omer 7 week day 0 50 format "Day %d%s of the omer (until sunset)." "" ", that is, %d week%s%s" "s" " and %d day%s"] 13 "\
Omer count diary entry--entry applies if date is within 50 days after
Passover."])
(fset 'diary-yahrzeit #[(death-month death-day death-year) "└┴\n½åE¬äE!!╟!╔!\n╦!┴!╦└!!ëZ╤\"╙V¡┬U¼êTU¡│╘╒U½â╫¬ü╪ë┘ª┌U½â█¬ù┘ª▄U½â▌¬î┘ª▐U½â▀¬üα%.ç" [calendar-hebrew-from-absolute calendar-absolute-from-gregorian european-calendar-style death-day death-month death-year h-date extract-calendar-month h-month extract-calendar-day h-day extract-calendar-year h-year date d yr diff hebrew-calendar-yahrzeit y 0 format "Yahrzeit of %s%s: %d%s anniversary" entry "" " (evening)" 10 1 "st" 2 "nd" 3 "rd" "th"] 8 "\
Yahrzeit diary entry--entry applies if date is yahrzeit or the day before.
Parameters are DEATH-MONTH, DEATH-DAY, DEATH-YEAR; the diary entry is assumed
to be the name of the person. Date of death is on the *civil* calendar;
although the date of death is specified by the civil calendar, the proper
Hebrew calendar yahrzeit is determined. If european-calendar-style is t, the
order of the parameters is changed to DEATH-DAY, DEATH-MONTH, DEATH-YEAR."])
Insert a diary entry STRING which may be NONMARKING in FILE.
If omitted, NONMARKING defaults to nil and FILE defaults to diary-file."])
(fset 'insert-diary-entry #[(arg) "½â┴¬ü┬─┼╞ «â╟╚!╔\"\n\")ç" [european-calendar-style (day " " monthname " " year) (monthname " " day ", " year) calendar-date-display-form make-diary-entry calendar-date-string calendar-cursor-to-date error "Cursor is not on a date!" t arg] 4 "\
Insert a diary entry for the date indicated by point.
Prefix arg will make the entry nonmarking." "P"])
(fset 'insert-weekly-diary-entry #[(arg) "└┴┬ «â├─!!\"ç" [make-diary-entry calendar-day-name calendar-cursor-to-date error "Cursor is not on a date!" arg] 4 "\
Insert a weekly diary entry for the day of the week indicated by point.
Prefix arg will make the entry nonmarking." "P"])
(fset 'insert-monthly-diary-entry #[(arg) "½â┴¬ü┬─┼╞ «â╟╚!╔\"\n\")ç" [european-calendar-style (day " * ") ("* " day) calendar-date-display-form make-diary-entry calendar-date-string calendar-cursor-to-date error "Cursor is not on a date!" t arg] 4 "\
Insert a monthly diary entry for the day of the month indicated by point.
Prefix arg will make the entry nonmarking." "P"])
(fset 'insert-yearly-diary-entry #[(arg) "½â┴¬ü┬─┼╞ «â╟╚!╔\"\n\")ç" [european-calendar-style (day " " monthname) (monthname " " day) calendar-date-display-form make-diary-entry calendar-date-string calendar-cursor-to-date error "Cursor is not on a date!" t arg] 4 "\
Insert an annual diary entry for the day of the year indicated by point.
Prefix arg will make the entry nonmarking." "P"])
(fset 'insert-anniversary-diary-entry #[(arg) "½â┴¬ü┬─┼╞╚╔ «â╩╦!!#\")ç" [european-calendar-style (day " " month " " year) (month " " day " " year) calendar-date-display-form make-diary-entry format "%s(diary-anniversary %s)" sexp-diary-entry-symbol calendar-date-string calendar-cursor-to-date error "Cursor is not on a date!" arg] 7 "\
Insert an anniversary diary entry for the date given by point.
Prefix arg will make the entry nonmarking." "P"])
(fset 'insert-block-diary-entry #[(arg) "½â┴¬ü┬─ «â┼╞!@«â┼╔!\n╦╦╬\n!╬!W½è\n¬ê\n╧╨╤╙!╙!$\"-ç" [european-calendar-style (day " " month " " year) (month " " day " " year) calendar-date-display-form calendar-cursor-to-date error "Cursor is not on a date!" cursor mark-ring "No mark set in this buffer" mark nil start end calendar-absolute-from-gregorian make-diary-entry format "%s(diary-block %s %s)" sexp-diary-entry-symbol calendar-date-string arg] 7 "\
Insert a block diary entry for the days between the point and marked date.
Prefix arg will make the entry nonmarking." "P"])
(fset 'insert-cyclic-diary-entry #[(arg) "½â┴¬ü┬─┼╞╚╔╩\"╦╠ «â═╬!!$\")ç" [european-calendar-style (day " " month " " year) (month " " day " " year) calendar-date-display-form make-diary-entry format "%s(diary-cyclic %d %s)" sexp-diary-entry-symbol calendar-read "Repeat every how many days: " (lambda (x) (> x 0)) calendar-date-string calendar-cursor-to-date error "Cursor is not on a date!" arg] 8 "\
Insert a cyclic diary entry starting at the date given by point.
Prefix arg will make the entry nonmarking." "P"])
(fset 'insert-hebrew-diary-entry #[(arg) "½â┴¬ü┬╞╚╔╩╦ «â╠═!!!!P\"*ç" [european-calendar-style (day " " monthname " " year) (monthname " " day ", " year) calendar-date-display-form calendar-hebrew-month-name-array-leap-year calendar-month-name-array make-diary-entry hebrew-diary-entry-symbol calendar-date-string calendar-hebrew-from-absolute calendar-absolute-from-gregorian calendar-cursor-to-date error "Cursor is not on a date!" arg] 7 "\
Insert a diary entry for the Hebrew date corresponding to the date
indicated by point. Prefix arg will make the entry nonmarking." "P"])
(fset 'insert-monthly-hebrew-diary-entry #[(arg) "½â┴¬ü┬╞╚╔╩╦ «â╠═!!!!P\"*ç" [european-calendar-style (day " * ") ("* " day) calendar-date-display-form calendar-hebrew-month-name-array-leap-year calendar-month-name-array make-diary-entry hebrew-diary-entry-symbol calendar-date-string calendar-hebrew-from-absolute calendar-absolute-from-gregorian calendar-cursor-to-date error "Cursor is not on a date!" arg] 7 "\
Insert a monthly diary entry for the day of the Hebrew month corresponding
to the date indicated by point. Prefix arg will make the entry nonmarking." "P"])
(fset 'insert-yearly-hebrew-diary-entry #[(arg) "½â┴¬ü┬╞╚╔╩╦ «â╠═!!!!P\"*ç" [european-calendar-style (day " " monthname) (monthname " " day) calendar-date-display-form calendar-hebrew-month-name-array-leap-year calendar-month-name-array make-diary-entry hebrew-diary-entry-symbol calendar-date-string calendar-hebrew-from-absolute calendar-absolute-from-gregorian calendar-cursor-to-date error "Cursor is not on a date!" arg] 7 "\
Insert an annual diary entry for the day of the Hebrew year corresponding
to the date indicated by point. Prefix arg will make the entry nonmarking." "P"])
(fset 'insert-islamic-diary-entry #[(arg) "½â┴¬ü┬╞╚╔╩╦ «â╠═!!!!P\"*ç" [european-calendar-style (day " " monthname " " year) (monthname " " day ", " year) calendar-date-display-form calendar-islamic-month-name-array calendar-month-name-array make-diary-entry islamic-diary-entry-symbol calendar-date-string calendar-islamic-from-absolute calendar-absolute-from-gregorian calendar-cursor-to-date error "Cursor is not on a date!" arg] 7 "\
Insert a diary entry for the Islamic date corresponding to the date
indicated by point. Prefix arg will make the entry nonmarking." "P"])
(fset 'insert-monthly-islamic-diary-entry #[(arg) "½â┴¬ü┬╞╚╔╩╦ «â╠═!!!!P\"*ç" [european-calendar-style (day " * ") ("* " day) calendar-date-display-form calendar-islamic-month-name-array calendar-month-name-array make-diary-entry islamic-diary-entry-symbol calendar-date-string calendar-islamic-from-absolute calendar-absolute-from-gregorian calendar-cursor-to-date error "Cursor is not on a date!" arg] 7 "\
Insert a monthly diary entry for the day of the Islamic month corresponding
to the date indicated by point. Prefix arg will make the entry nonmarking." "P"])
(fset 'insert-yearly-islamic-diary-entry #[(arg) "½â┴¬ü┬╞╚╔╩╦ «â╠═!!!!P\"*ç" [european-calendar-style (day " " monthname) (monthname " " day) calendar-date-display-form calendar-islamic-month-name-array calendar-month-name-array make-diary-entry islamic-diary-entry-symbol calendar-date-string calendar-islamic-from-absolute calendar-absolute-from-gregorian calendar-cursor-to-date error "Cursor is not on a date!" arg] 7 "\
Insert an annual diary entry for the day of the Islamic year corresponding
to the date indicated by point. Prefix arg will make the entry nonmarking." "P"])